home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / education / pe039.dms / pe039.adf / MY_ALBUM / MY_ALBUM.amosSourceCode < prev   
AMOS Source Code  |  1991-05-01  |  3KB  |  99 lines
  1. Screen Open 1,320,256,32,Lowres : Curs Off : Cls 0 : Hide 
  2. MAIN
  3. Procedure MAIN
  4. Unpack 6 To 0
  5. Volume 0
  6. Music 1
  7. For V=0 To 63
  8. Volume V
  9. Wait 3
  10. Next V
  11. Wait 200
  12. Cls 0
  13. Fade 5 : Wait 100
  14. Erase 6
  15. Palette 1,,$FF0
  16. Show 
  17. 1
  18. If Exist("df0:ALBUM/") : Goto 2 : Else NOALBUM : End If 
  19. 2
  20. Show 
  21. A$=Fsel$(":ALBUM/","","LOAD PICTURE 1")
  22. If A$="" Then Goto OPS
  23. B$=Fsel$(":ALBUM/","","LOAD PICTURE 2")
  24. If B$="" Then Goto 3
  25. C$=Fsel$(":ALBUM/","","LOAD PICTURE 3")
  26. If C$="" Then Goto 4
  27. D$=Fsel$(":ALBUM/","","LOAD PICTURE 4")
  28. If D$="" Then Goto 5
  29. E$=Fsel$(":ALBUM/","","LOAD PICTURE 5")
  30. If E$="" Then Goto 6
  31. F$=Fsel$(":ALBUM/","","LOAD PICTURE 6")
  32. If F$="" Then Goto 7
  33. G$=Fsel$(":ALBUM/","","LOAD PICTURE 7")
  34. If G$="" Then Goto 8
  35. H$=Fsel$(":ALBUM/","","LOAD PICTURE 8")
  36. If H$="" Then Goto 9
  37. I$=Fsel$(":ALBUM/","","LOAD PICTURE 9")
  38. If I$="" Then Goto 10
  39. J$=Fsel$(":ALBUM/","","LOAD LAST PICTURE")
  40. If J$="" Then Goto 11
  41. 12 Load Iff J$,1 : Hide : Flash Off 
  42. WATCH
  43. 11 Load Iff I$,1 : Hide : Flash Off 
  44. WATCH
  45. 10 Load Iff H$,1 : Hide : Flash Off 
  46. WATCH
  47. 9 Load Iff G$,1 : Hide : Flash Off 
  48. WATCH
  49. 8 Load Iff F$,1 : Hide : Flash Off 
  50. WATCH
  51. 7 Load Iff E$,1 : Hide : Flash Off 
  52. WATCH
  53. 6 Load Iff D$,1 : Hide : Flash Off 
  54. WATCH
  55. 5 Load Iff C$,1 : Hide : Flash Off 
  56. WATCH
  57. 4 Load Iff B$,1 : Hide : Flash Off 
  58. WATCH
  59. 3 Load Iff A$,1 : Hide : Flash Off 
  60. WATCHLAST
  61. Goto 2
  62. OPS:
  63. Screen Open 2,640,80,8,Hires : Cls 7 : Paper 7
  64. Print ""
  65. Print "NO FIRST CHOICE MADE....IF THE MENU WAS BLANK THEN THERE ARE NO PICTURES TO SEE"
  66. Print "IF THERE WAS THEN YOU MUST HAVE CLICKED ON THE WRONG BUTTON DO YOU WISH TO TRY   AGAIN ?"
  67. Print "                                    Y/N"
  68. Clear Key : Wait Key 
  69. If Key State(21) Then Screen Close 2 : Goto 2
  70. If Key State(54) Then Cls 7 : Home : Print "" : Print "" : Print "OK...ARE YOU SURE......Y/N" : Clear Key : Wait Key : If Key State(21) : End : Else Goto 2 : End If 
  71. End Proc
  72. Procedure WATCH
  73. Wait 600
  74. Fade 5
  75. End Proc
  76. Procedure WATCHLAST
  77. Wait 600
  78. Fade 5
  79. Screen Open 2,640,50,2,Hires
  80. Print "" : Centre "THAT WAS THE LAST PICTURE,DO YOU WANT TO LOAD SOME MORE?"
  81. Print "" : Centre "Y/N"
  82. Clear Key : Wait Key 
  83. If Key State(21) : Goto 2 : Else Cls 0 : Centre "OK GOODBYE" : For V=63 To 0 Step -1 : Volume V : Wait 3 : Next V : Wait 100 : End : End If 
  84. End Proc
  85. Procedure NOALBUM
  86. Screen Open 2,640,80,8,Hires : Cls 7 : Paper 7
  87. Print ""
  88. Print "THERE IS NO DIRECTORY CALLED ALBUM ON THIS DISC.HAVE YOU PUT THE COLOUR IT DISC"
  89. Print "IN DF0:?,IF NOT,DO SO THEN PRESS F10"
  90. Print "IF COLOUR_IT IS IN DF0:THEN DIR ALBUM SEEMS TO HAVE BEEN ERASED,WOULD YOU LIKE"
  91. Print "ME TO MAKE ANOTHER UP FOR YOU"
  92. Print "                                    Y/N"
  93. Clear Key : Wait Key 
  94. If Key State(89) Then Screen Close 2 : Goto 2
  95. If Key State(21) Then Goto 13
  96. If Key State(54) Then Cls 7 : Home : Print "" : Print "" : Print "OK BUT THERE IS NO POINT ON GOING ON...ARE YOU SURE......Y/N" : Clear Key : Wait Key : If Key State(21) : End : Else Goto 13 : End If 
  97. 13
  98. Cls 7 : Home : Print "" : Print "OK NOW MAKING DIRECTORY ALBUM" : Mkdir "ALBUM" : Print "ALL DONE..............NOW GO TO BOOK AND MAKE UP PICTURES...THERES NO POINT IN GOING ON" : Print "SO I'LL QUIT NOW...BYE" : Wait 300 : End 
  99. End Proc